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module lnk_symtblout ' LINKER GLOBAL SYMBOL OUTPUT ROUTINES 
ident = "v04-000' : 

addressing mode 

(external z general 

phennatornns = long_relative 


fo lololololo) 


dz 
begin 
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leunenanensenatenseentennnnenereneereetentenereerententnnenentnetrententrnet 
le 

't COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


® 
® 
* 
® 
+ 
: * 
!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
!# INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!® TRANSFERRED. ® 
® 
® 
® 
® 
® 
® 
® 
o 
& 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJE 
it AND SHOULD NOT BE CONSTRUED AS A COMM 
CORPORATION. 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


CT TO CHANGE WITHOUT NOTICE 
ITMENT BY DIGITAL EQUIPMENT 
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$08 

003 'e¢ 

O28 FACILITY: LINKER 

$03 ABSTRACT: THIS MODULE CONTAINS ALL LOGIC TO OUTPUT THE GLOBAL 

'¥4 SYMBOLS OF THE LINK TO SYMBOL TABLE FILE AND/OR IMAGE FILE 
04 

Ooe ENVIRONMENT: VMS NATIVE MODE 


AUTHOR: T.J. PORTER, CREATION DATE: 14-JUL-77 
MODIFIED BY: 
v03-023 ADE000S Alan D. Eléridee 23-Au 
ten 


1984 
Prevent syabeis from being wri wice to the symbol table 
by flushing the symbols before writing the PSECT record. 


Serre 
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v03-022 ADE0004 Alan D. Eldridge 10-Jul-1984 
Fix module name selection when the image name is null but there 
is no .STB requested. 


v03-021 ADE0003 Alan D. Eldridge 22-Jun-1984 
Adhere to Grammer Rules for output file spec's as defined 


NOU EWN 0 ODN VE WN 9 OD NOU EWN SO ODNAUE WN SO OODNOU SW OOONOUS WR 
kk a ak a a a a a kk kk kd ad dd ds 8 8 — — BO OOOOOO 
7 


Be Be Se Oe Oe Be Se Se Se Be Se Se Ge Be Ge Be Se Ge Ge Fe Ge Se Fe Se Se Oe Se Se Se Be Se Se Ge Be Se Gs Ss Se Se Be Se Se Se Se Se Se SESH SESH Se Se Se Oe eee ee 


MUMMIES BEB REARS ES RWW rnonononofroronononony 2 2 2 


SSsssssss 


PUPA & 


56 


F 12 
LNK_SYMTBLOUT 16-Sep-1984 234: 
voe=000 1e88b2188e 99:20:39 
in the Command Language User's Guide. 
v03-020 ADE0002 Alan D. Eldridge 
Fix bug which resulted in zero-lenghted nodule name 
if a the .STB name if the image name is null. 


v03-019 A Alan 0. Eldridge 12-Apr-1984 
Use Foutput file perstag only ¥¢ /SYM was not an 


1-May-1984 
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: 0 1! 
1! 
: 6 1/ 
. 1 ! 
e 1 ! 
; 74 
3 1! 
3 1! 
; 68 : nput file qualits er. 
: 68 0 i i VO3-018 ywT0134 Jim Teague 29-Aug-1983 
3 9 1! Undo JWT0129. NOSHR psects in shr img sym tbls are 
3 £9 4 : good for forcing a CRF section. 
Be 076 1} V03-017 ywT0129 Jim T eague 28-Jul-1983 
3 7 075 1! Psect selection for inclusion in shareable mage 
; ee Boe : symbol tables was ie to check the SHR bit. 
: 76 076 1 V03-016 JwT0113 Jim eague 20-Apr-1983 
3 a Bn o8 : tall $getjpi to get on er of open files left. 
: 79 9079 1} v03-015 JuTo0ss Jim Teague 15-Sep-1982 
; ® 080 1! Fix bug which Ra Py Linker to skip writing some 
; 3 et : } symbols to shr imgs. 
ti & 00 : 1 | V03-014 ywT0044 Jim Teague 30-Jul-1982 
3 HE pose : Open file performance boost. 
: 86 0086 1: v03-013 ywT0038 im Teague 23-Jun-1982 
; 4 aie ; Clean up INFO#212 errors. 
: 89 0089 1 i-- 
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aw_version 


tine 
closefile 
traverse_tree, 
filnamdsc 
Sclosimgfil; 


MODULE OWN STORAGE: 
global 


Lnk$gw_gstrecs 
Lnk$gw_symrecs 


external 
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own 
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R USEFUL P-SECTIONS 
ESS ALLOCATED 
MBOLS 
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: blockC,bytel; 


eomcodes : vector [4 
initial ( 


stbauxfnb 
stbrab 
symask 
symatch 
stbfileifi, 
magaux fnb 
gsdrecing 
curpsectnum 
objrecord 


bind 


byte] 
byte (eom$c warning 
eom$c_success 


! POINTER TO AUX. FNB. OF SYMBOL TABLE FIL 
bc=\|nk$c_objmbc), ! RECORD ACCESS BLOCK OF SYMBOL TABL 
ym$m_supres), 


: ref block C, byte] 


INTERNAL FILE ID OF SYMBOL TABLE FILE 


: ref blockC,bytel, OF OPEN IMAGE FILE 
: d RECORD 


: byte, 
: ref block C,byte); 


! POINT TO OBJECT RECORD AS BYTE VECTOR 


objrecvec = objrecord : ref vector C,byte); 


psect own = $plit$; 
own 

abspsect : blockCp 

initia 


psect own = $Sown$; 


! DEFINE READ ONLY STORAGE 

FOR THE GENERATED ABSOLUTE P=-SECTION 
IT IS POSITION INDEPENDENT 

; IBRARY'' P=SECTION 


sc$c_size+9,byte] 
(Long(0,0) ,word(0), 


(0), 
dstring (".S$SABS$$.°)); ! NAMED *’.$SABSSS."° 
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83 piobet routine Lnk$symtblout : novalue = 


FUNCTIONAL DESCRIPTION: 


THIS ROUTINE OUTPUTS THE GLOBAL SYMBOLS OF THE LINK. 
THERE ARE THREE REASONS FOR GLOBAL SYMBOL OUTPUT: 


1. I aaa HAS BEEN LINKED INTO AN EXECUTABLE 


2. THE IMAGE IS A SHAREABLE IMAGE. 


3. A SEPARATE OUTPUT FILE OF GLOBAL SYMBOLS WAS 
REQUESTED BY THE LINK COMMAND. 


1 AND 2 ARE MUTUALLY EXCLUSIVE, WHEREAS THE THIRD 

MAY ACCOMPANY EITHER. IN CASES 1 AN 4 2_THE GLOBAL a 
ARE OUTPUT TO THE END OF THE IMAGE FILE. INA 

THE alt 1 eo OUTPUT CON oa $ TO THE OBJECT + LANGUAGE 
FORMAT. I.E. VARIABLE LENGTH REC 

THERE, Is. Some “FILTERING OF SYMBOLS AND P=SECTIONS 
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1. NO WEAKLY DEFINED SYMBOLS 
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4 2. SYMBOLS FROM THE DEBUGGER ITSELF AND FROM SYSTEM 
4 LIBRARIES ARE SUPPRESSED IN ACCORDANCE WITH 
4 THE LINK COMMAND GIVEN. 
: : 
37 ¢ NONE 
35 4 i 
3% 4 i IMPLICIT INPUTS: 
$3 35 THE IMAGE FILE IS OPEN AND DESCRIPTORS OF IMAGE FILE 
5 35 AND SYMBOL TABLE FILE ARE IN DYNAMIC MEMORY. 
33 ' IMPLICIT OUTPUTS: 
35 YMBOLS AND P=SECTIONS (AS REQUIRED) ARE WRITTEN TO 
5 THE (APPROPRIATE) FILE(S) AND IF TO AN IMAGE 
5 HE IMAGE HEADER 1S UPDATED WITH A POINTER TO 
3 THE SYMBOL TABLE PATITION OF THE FILE. 
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| FORMAL PARAMETERS : 
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1 ROUTINE VALUE: 
| COMPLETION CODES: 
NONE 
| SIDE EFFECTS: 
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-Sep-1 INKER,. SRC} LNKSYMOUT. 8 2;1 (3) 
; 260 ie Local : 
; 261 7? rmserror, ! RMS ERROR CODE RETURNED ‘ 
; 66 74 stvcode, ! RMS STV CODE RETURNED : 
; 26 75 fablock’ : block Cfab$c_bin byte], ' FILE ACCESS BLOCK ; 
3 ee if psectdesc : ref block sByted; ! POINTER TO P-SECT DESCRIPTOR : 
; $8 78 4 it (.Unk$gl_ctlmsk and (ink$m_shr or Lnk$m_dbg or ! IF A SHAREABLE IMAGE ; 
: 26 7 ink$m_symtbl)) eql“0 ' OR DEBUGGER WITH EXECUTABLE IMAGE . 
: re ? then return; ! OR A SYMBOL TABLE FILE WAS REQUESTED : 
; $3 § objrecord = .lnk$al_rab Crab$l_ubf]; ! INITIALIZE OUTPUT BUFFER TO BE THE ; 
: 71 ' ONE USED FOR INPUT RECORDS CROSSING BLOCKS : 
; 7 P 4 $fab_init (fab = te tata ! INITIALIZE THE FAB ° 
: ef Pp 5 efop = put ‘ 
; 274 P § ot fm = var ; 
s es P mrs = maxsymbolrec : 
; 276 8 5; ; 
: 277 0389 : 
: 278 0390 then Begin ctlmsk Clnk$v_symtblJ ! : 
; 279 0391 ' IF A SYMBOL TABLE, BUILD + 
; 280 0336 uxfn = Ink$gl_symfil Cfdb$t_auxfnb); ' A FILE ACCESS ath TO 
; 281 8 ] fablock fab$l_fna] = .lnk$gl-symfil Cfdb$i- “usrnamadr); ! WITH USER SPECIFIED OR 
3 HG 94 fablock Cfab$b_fns] = .Lnk$gl<symfil Cfdb$w_ usrnamlen): ! COMMAND LANGUAGE DEFAULTED 
; 28 0395 4 fablock Cfab$b_dns] = (Tt Stak 9b. Locnov_sym 
: 284 0 96 4 then %charcount (". TB") 
§ i $444 $ else Xcharcount ('SYS$DISK:C).S1B") 
3; 287 0399 4 fablock Cfab$l_dna) = (if -inkSee. to bpenev sym 
; 288 0400 4 then uplit (byte ('.STB")) 
: 89 0401 4 else vty (byte " SYSS$DISK: C].STB")) 
; 290 040 ) 
: 291 040 fablock Cfab$l_nam) = .sthaux } 
3 $3 0404 fablock Cfab$l"alq) = "Tnk$ou ES ! SET INITIAL ALLOCATION 
3 + B60? stbrab (Crab$l-fab] = fablock; ! 
3 $3 0407 if .lnk$gb_locnov_sym ! DON'T USE ‘OUTPUT FILE PARSING’ 
; 296 0408 then fablock Efabsi ofp, = false ! IF /SYM WAS A LOCAL QUALIFIER 
3 44 ret else fablock Cfab$v_ofp) = true ; ! WITHOUT A SPECIFED VALUE 
; 44 pel stbauxfnb Cnam$l_rif] = .lnk$gl_relnam_sym ; ! SET RELATED NAM BLOCK ADDRESS 
3; 301 413 4 if not Big Citmist = Lnk$gt_ jotist): 
3 4 1 ? nk$gl_filesleft leq” 
3 hen 
; 304 1 4 ink$closefile (); ' THEN CLOSE A FILE 
> 305 17 4 rmserror = $create fadsfadlock); i AND TRY AGAIN 
: ret 4 stvcode = .fablock Cfab$s 
; 19 4 ve (dsc$c_s_bln Oe STi tvaadsc Crgotoch? ' SET RESULTANT NAME DESCRIPTOR 
: 08 4 9 é z tnkSol. Symfil Cfdb$q_filename 
3 19 : § ? -rmserror 
3 \ 424 & or not (rmserror = te tg Ba (rab=stbrab); ! RECORD STREAM AND 
; 31 425 & stvcode = .stbrab Crab$l_stvJ; 
3 1 : § 2 ermserror 
; 16 428 4 then begin ! JF ANY FAILURE REPORT 
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.rmsérror,.Stvco 


ieee 0:35:92 


signal (Lin$_openout,1, UnkSgl_ symfil Cfdb$q_filename] } 


if (. ink$gl_ ctlmsk and (Lnk$m fhe or lnk$m_dbg or 


ink$m_ 


end. return; 


stbrab. ttaest _rbf] = = lobjrecord; 


Tt es) IMAGE 
E FILE EXISTS (1 
HAT VARIABLE LEN 


OR A 
.E. | 
GTH R 


mage)) eql 0 


at -fablock Cfab$w_ifil; 


if (. ink$gl. ctlmsk end (Lnk$m_shr or inkSa_ dbg)) neq 0 


and - Lnk$gl ~ctlmsk Clnk$v_image] neq 
nia 


then b 
= 

faptock” fab$w_ifi] = ,lnk$gw_imgifi; 
feblock fab$v_bro = hee 
fablock fabsv. Tes = true; 
fablock Cfab$l—c = raese_setrtn: 
ink$al_imgrab Pabst. fab] = fablock; 
ink$al_imgrab Crab$v_eof] = true; 


if not (rmserror = $modify (fab = fablock); 
stvcode =  fablockL fab$l stv; 


-rmserror 


or not (rmserror = $connect (rab=Lnk$al -imgrab); 


stvcode = .lnk$al_imgrab Crab$l“stvJ; 


-rmserror 
then begin 


Lnk$gl_imgfil Cfdb$t_ aux fnbj; 
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signal (Lin$_openout,1, «ink Sgt. "imgtit Cfdb$q_ filename] 


.rmsérror, .Stvco 


inkSc osynout ec. My ete, 
fileifie 
~— return; 


else b egin 
ink$al_imgrab Crab$b_mbc 
inkSal. imgrab Crab$l"rbf 
end; 


end 
else if .stbfileifi eql 0 then return; 


if not hdrecsout () 
then return; 


if not psectrecout (abspsect) 
then return; 


= Lnk$c_objmbc; 


= ,objrécord; 


IT 


THEN IF TH wee EIS 
NOTHING ELSE TO DO 
EXIT NOW. 


SAVE IFI_ IF CREATED OK 
SET RECORD BUFFER ADDRESS 


OR DEBUGGABLE 
H HAS BEEN 
CCESSFULLY 

ILL_ OPEN). JAM 
OR BOTH BLOCK 


n=4CoO 


SET R IN RAB 
AND END OF FILE OPTION 
AND TELL RMS ABOUT IT 


o 
ao 
o 
@ 
Cc 
i | 
~s 
m 
@D 
> 
= 
=] 
>) 
m 
7) 
(74) 


ILURE 


oO 

Cc 
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a= eC 
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oO 
» 


Se P=-SECTION 


LNK_SYRTBLOUT 1b-5¢ Sep-1984 00:34: AX-11 Bliss-32 V4.0-7 
v04 3epn1bke P3izoi8? | tee SAEs Lies VmoUT B%2;1 


3 74 4 § ‘ 

3 Ne ri OUTPUT THE PSECTS 

3 f 7 5 gutputpsects Q; 

: 7 491 ' ALL SYMBOLS AND P=SECTIONS ARE PROCESSED. WRITE AN 

: ° 136 END OF MODULE RECORD THEN CLOSE THE FILE(S). 

: 38 0494 if not eomrecout () GIVE UP_ON EOM RECORD 
; 38 495 then return; ' OUTPUT ERROR 

: 384 B638 ink$closymout (0); ! AND CLOSE FILE(S) 

: 8? be8 return; 

3 496 end; ' AND ALL DONE 


-TITLE LNK 12H aad 
-IDENT \v0%-000 


-PSECT S$PLITS,NOWRT,NOEXE,2 
00000000 00000000 00000 speietngnde . 


. e 0 
0000 00008 «WORD 
0083 Q000A WORD 131 
00000000 00000000 00000000 00000000 00000000 e444 0000C -LONG 0, 0, 0, 0, 0, 0, 0 
0000000 00024 
00000000 4 8 -LONG 0 
00 0002C BYTE 0 
9? 00020 -BYTE 9 
2 24 24 53 42 41 24 24 2€ B08 5 -ASCII \.SSABS$S.\ 
00 -BLKB 1 
42 33 53 ef 00038 P.AAA: .ASCII \.STB\ 
42 54 53 2€ 5D 5B 3A 48 53 49 44 24 53 59 0003C P.AAB: <ASCII \SYS$DISK:C).STB\ 


-PSECT SOWNS,NOEXE,2 
03 02 00 01 00000 EOMCODES: 


“BY 1, 0, 2. 3 
00004 ieeenien ‘ 
01 00008 STBRAB: .BYTE 1 
44 44 BYTE 68 
OA «WORD 
0 0 of LONG 
000 14 “LONG 
# 00018 “WORD © OL3 
if ~WORD 
0000 LONG 
0 4 “WORD 
$ “BYTE 
“BYTE 
8 ~WORD 
A «WORD 
6 ~ LONG 
~LONG 
LONG 


Bete Se Se Se Se Se Be Se 


Sete te Se Se Se Se Se Se Se Ge Ge Ge Ge Se Se Se 


LNK_ 
VO04= 


YMTBLOUT 


58 tt 4 
5A 0000000 


00000 


06 00 


0 


Foma@rRonmonw > 


oooo 
oo 
a 
SOOoOoooooooooo 
ole lo le lo leo lololelolo) 


DIN & 


00058 
0005¢ 
0005€ 


Q005F 
00060 


00000 
00002 


OFFC 00000 


9€ 00008 


eos 


aon 
so 


pa198¢ 19:40 


SYMASK: .WOR 


SYMATCH: .BLK 
Ter iLeiét: 


~BL 
IMGAUXFNB: 
GSDRECLNG: 
CURPSECTNUM: 
BLK 


-BLK 
OBJRECORD: 
-BLK 


»PSECT 


LNKSGW oe 
LNKSGW_SYMRECS:: 
-BLKB 


OBJRECVEC= 
~EX 


-PSECT 
-ENTRY 


MOVAB 
MOVAB 


3 AX-11 Bliss-32 V4.0-7 4g 
LINKER. SRCILNKSYMOUT .B32; 1 


3 
AL OBJMBC 
4 
4 
4 
2 
4 


SGLOBALS ,NOEXE ,2 


2 
2 


OBJRECORD 
LINS_CLOSEOUT, LINS_FAOFAIL 
LINS~ OPENOUT LINS QRITEERR 
LNK$C_0B NKSGT_JPILST 
LNK Sr FIL 

NKSGT “ING IDS LNK$GL_PSHRNUM 
tNKSEL “CLULST, UnKSGE_ INRELNAM 
NK ELNAM. 

OCNOV~ Ma 

LNKSAL-IMGRAB; LNKSAL_RAB 

GB-MAXERCOD 

NK$GB~PASS, LNK $6L ACT 
tNKSeL IMGFIL, LNKSCL_ Ah 


F 
LNKSGW"IMGIFI, LNKSGL”MAPL 
LNKSGL-MINVA, LNKSGW_RSY 


LNKSF ILNAMDSC, ENKSCL 
SYS$GETUPI, SYS$C 
SYSSCONNECT, SySSMODIFY 


SCODES ,NOWRT ,2 


Page 9 


Poe 2 at pa Save R2,R3,R4,R5,R6,R7,R8,- 


LNKSGL -SYMFIL, R11 
LNKSGL-CTLMSK, R10 


(3) 


0315 


LNK_SYMTBLOUT 
VO4= 


0050 «= &F 00 


03 


10 AE 


2044 


35 


000000006 


000000006 
000000006 


000000006 


Sa 


000000006 


f 
0000000 


00000000° 
00000000° 


000000006 


000000006 


000000006 


000000006 


5003 


0200 
00 


6 
0 
C 
0G 


AG 


oc 


oon 
DB-MMO—-- MO VNONMMOMMOSS LOM FOODS MYO MWS" QOOCOT 2M "MOO —»yPmM 


AON? MNOMOOOO WO MVONONMNO OU F VIMOMUNMNOOOMO P & FP SOMOWDOOCOMCCOO 


1 


WMOS-OMOOITOCOWMDoocoW woo-Wooo 


Coooceo 


ow 


OOOO SOOOOOSOOSOOSOOOSOOSOOOOOOOSOOOOOOOOOOOOO 


SOOSOCCOCOCOOOOOOSOSOOSOSOOOOOCO OOOO OOSOSOSOOOSCOOSOOSOOOCOOOOOOOOOOOOOSoOO 


ODS OOS @ &-2D LOWE OOD— FS OM SNOOOCOM $M OOO 00 FOOMO—COCCSCOoOo MPoOofrvenmmn 
—OOOCOCCOOOOGoOCOOOOSOoOSoOoOoOooCoooO 


Ou AAMAMMAMOOGARAAWw @> > > 000 DMMMM~ 
WW DUI DIVO DIVOMDO > Oho MD Mw eS 


oO™MOoC9 TNS 139 NS VOSS OOM OOWOITTC oO 


12 
“Se 
“Se 


o~n 
PM 


oO 
bad 


71986 99:26:37 


AX-11 Bliss-32 V4.0-74 
LINKER. SRCJLNKSYMOUT .B52; 1 


LNKSAL IMGRAB+60, RO 

RECORD, R 
-80(SP), §P 
LNKSGL_ETLASK, #8260 
LNKSAL_RAB+36, QB JRE CORD 
#0, (SP), #0, #80, $RMS_PTR 
#20483, SRMS_PTR 
#1, $RMS_PTRI4 
4G. SRNS-PTReg 

PT 


#15, RO 
ade FABLOCK+53 


P.AAA, RO 
6$ 


P.AAB, RO 

RO, FABLOCK+48 
STBAUXFNB, RO 

RO, FABLOCK+40 
LNKSGW_NSYMBOLS, R2 
#20, R2, FABLOCK+16 
FABLOCK, STBRAB+60 


#32, FABLOCK+7 

#32, FABLOCK+7 
LNK$GL_RELNAM_SYM, 16(RO) 
=($P) 

-(SP) 

LNKSGT_JPILST 

=(SP) 

(SP) 

#7, SYSSGETJPI 
NKSGL_FILESLEFT, #3 
40, LNKSCLOSEF ILE 
#1, SYSSCREATE 

RO, RMSERROR 
ABLOCK#12, STVCODE 
#1, LNKSFILNAMDS 
LNKSGL_SYMFIL, R 


LNI 
VO: 


secant ianatcecedemnniaatinagaentaeedesat — 


13 Page 1 
3 AX-11 Bliss-32 V4.0 
Uae SYRTBLOUT 1-30-1984 99:54:39 dn tai d} 
ar 0 8 28 00105 movc3 d. 0), 2gcRt) t cai 
ee a BRB Bee fee Bi 
0 ves is re 1%9 CALLS #1, SYSSCONNECT : 
seeperytepe : D0 0011 MOVL RO, FRROR oo 
$ B4 is DO OOT11A OVE ince aon a ere $33 
1p | : RROR, =(SP) : 06 
4: 38 rp i ee ADDLS 420. Be LNK$GL LSYMFIL, =(SP) ; 0429 
™ we 1 DD 00128 PUSHL # ; 
000000006 8F DD 0012A PUSHL aL INS OPENOUT : 
5 FB 001 CALLS LTB$S! tose 
enna. ae 9 BITS NKSGL SET LASKe #69 
: : A ? i B BNEQ iOS torus 
13D RET i 0434 
: FABLOCK+2, STBFILEIFI ; 0 
D0 AB ° 6 ; 145 |S’ ROWE OBURECORD” STBRAB+AO : 0438 
a OF A 93 00147 12$:  BITB LNKSGL_CTLMSK, #68 ; 
oa if £3 bole0 Brae + CTLMSK, 15$ + 0448 
4: sf eY 5180 ADDL3 #38, LAKSGL_IMGFIL, IMGAUXFNB a rts 
oa 0 $189 MOV LNK$GW_IMGIFI, FABLOCK+2 : 045 
i wore F 0161 BISB2 #64, FABLOCKs22 ; O45¢ 
09 AE - 08 0166 BISB a8, tas FBLBEk 2 i 9493 
= % b BO Bptee nOVA OCK, LNKSAL_IMGRAB+60 ; 0655 
¢3 f o tai it: Fabvoce, _IMGRAB+ : ; 46 
ad bes E DD 0017 PUSHL 
Be, 133 CALLS a. SYSSMODIFY ; 
2§ Oc AE D0 01 f nov bara ragtTVCOve ; £83 
"= 38 te r NK$AL_IMGR > 04 
co AS SF PUSHAB LAKSAL AGRA , 
sacar | 9) D0 001 MOVL RO. RMSERROR toss 
§ D0 = AD «DO 0019 ROVE brcemeon” a8" +12, STVCODE ; ‘se 
6 é eee RRO z Beg 
fe 36 PD Ht — ADDLS #20, tNKSGL IMGFIL. -(SP) + 0467 
7E 000000006 00 4 cl O19f ADDL ne ; 
000000006 8F DD 001A9 PUSHL if TERS ona ; 
000000006 00 FB OO1AF CALLS as ere 
he Ks pe ig CALLS rg pe 
reac oh if ie : eCve S*LNKSC_OBJMBC, LNKSAL_IMGRAB+5S ; 409 
Ee 9 ‘ ¥ 09 if — MOVL RECORD, LNK$AL_IMGRAB+40 ; 476 
Fe OA lee 158: Pere $1 FILEIFI 79 
HEI vse: Hats OR tmpecson oa 
sepa y i £8 108 "  -BLBC 4% He S esse 
r O° EF FF 1D PUSHAB ABSPSECT 
sooeeee .-¢ itt CALLS #1, PSECTRECOUT : 
eneneunt! 7 £8 168 BLBC =—E_s«aRO. an 
FB OOTE CALLS 40. QUTPUTPSECTS : 0489 
adit EF FB if CALLS #0, EOMRECOU ; 


voese00 if tatty 99:26:37 EMnkee®SRESins¥nOUT 682; 1 ee 
RO, 178 


BC 
RL - 
Ls #1, LNKSCLOSYMOUT 


09 30 E9 001 BL 

5 D4 QO1FC CL 

00000000V_ EF 01 FB ie CA 
04 00205 17$: RE 


; Routine Size: 518 bytes, Routine Base: $CODE$ + 0000 


D 13 
LNK_SYMTBLOUT -Sep- 234: - - -0- 
hss HEREEIBEL QQSEEP UDGOUSPLANCRES Yale, 


5 mhdrec 


E LENGTH OF IDENT 
1 1 ¢ 


modheadfield (0) = .lnk$gt_imgid (0); : 
datefield i = ghSnove ( modheadtield CO], Lnk$gt_imgid (1),modheadfiel ); OPY IN THE spent 
= ate 


SET 
d C . 
datefield (0 eldlen; ! SET UP DESCRIPTOR FOR D 
P if not $fao (datecntrl, recing, datefield ' FIELDS AND CALL FAO TO 
5 P ink$gq_startim, (nk$gq_startim ! CONVERT AND MOVE IN DATE AND TIME 
then begin 
8 signal (Lin$_faofail); ! GIVE UP WITH MESSAGE IF AN ERROR 
9 return false; 
440 end; 
441 


recing = .recing + .modheadfield (0) + smhdrec, (andsb naming) +2 + } compute TOTAL RECORD 
) 3 : 


mhdrec Cmhd$b_naming] - objrecord $b_rectyp 


: 388 499 1 routine hdrecsout = 3 
. gg Fes | 
: 391 ; i THIS ROUTINE OUTPUTS MODULE HEADER RECORDS TD THE : 
: 33 O3 ¢ | SYMBOL TABLE FILE. ; 
; 34 Ht bind  mhdrec = .,objrecord : block C,byte); 3 
: 396 03 ° own datecntrl : descriptor('!17%D!17%D"), : 
: 144 8 4 Linknamever : descriptor ('VAX=-11 Linker V!AD-!AD'); : 
: 399 1 Literal filenamelen = 9, : 
; 400 § i? datefieldlen = 13° é 
; 401 8216 maj_ident_lng = 2, Fy 
; 40 051 min-ident_lng = 2; ; 
; 40 0514 : 
; 404 0515 local filename : ref blockl byted $ 
; 405 9218 modheadfield : ref vectorl, ytel, F 
: 406 051 datefield : vector (2), 

; 407 0518 recing : word; 

; 408 0519 

: ret 82 bind buf ferdesc = datefield : vector; 

: 411 05 : if (filename = .imgauxfnb) neq 0 ! SETUP DEFAULT MODULE FNB 

3 tig 05 then begin ! 

; «41 0524 if .imgauxfnb Cnam$b_name] eql 0 ! IF IMAGE NAME IS NULL 

> 414 0525 and .stbauxfnb neq 0 ' AND .STB EXITS, 

: ai? 0397 then filename = .stbauxfnb; ' USE .STB NAME 

3 en 

3 rh B2 8 else filename = .stbauxfnb; ! USE .STB NAME IF NO IMAGE 

: 419 038 objrecord Cobj$b_rectyp) = obj$c_hdr; ! SET RECORD TYPE 

; 420 0531 mhdrec (mhd$b_hdrty = obj$c_hdr_mhd; ! AND HEADER SUB-TYPE 

: 421 0 3 mhdrec (mhd$b_striv = obj$c_strfvl; ! SET STRUCTURE LEVEL 

; rt 0 mhdrec (mhd$w_recsiz = maxsymbolrec; ! SET MAX RECORD LENGTH 

3 rt $e mhdrec Cmhd$b_naming = .filename Cnam$b_name); ! SET MODULE NAME LENGTH 

; re 0 36 modheadfield = ch$move (.mhdrec Cmhd$b naming 

: 426 0537 «filename Cnam$l_name ! AND COPY THE NAME, SETTING 

: § i 0 38 mhd$t_name] i POINTER TO NEXT FIELD 

: 429 40 

ie i 

; a3 rk 

; 43 44 

: 434 45 

; 43 #6 

i 4 

3; 4 rt 

.. & 0 

: 

: 0 4 

3 5 


RRS 
BRS 
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LNK_SYMTBLOUT 16. Se 4 00:34: AX-11 Bliss-32 V Page 14 
10c7800 er 8een 1 8Rs P8:25383 | eR SRE TaesVmouT bo2:1 Mi 
> 445 5 if not outputrec (.recing) ! AND OUTPUT THE 
; 446 5 then return false; . i RECORD 
: ats 5 
; rc) 8 4 | NOW BUILD THE RECORD WITH LINKER'S NAME AND VERSION. 
: 451 é 
: 426 $208 objrecord Cobj$b_subtyp] = obj$c_hdr -inmi ' CREATOR ID HEADER | 
; 45 beee buf ferdesc ef = maxsymbolr ' SET LENGTH AND 
: 454 565 2 bufferdes = ob record obj $b. subt p]+1; i ADDRESS AND FAO 
; 455 P 0566 if not $fao (Linknamever rg esc ident lng ' FILLS IN THE RECORD. 
: $2 P tae 4 - (nk$aw_ version t,- neler ‘ ain. ident _ lng ' WITH MAJOR AND MINOR 
: tet P 208 ink$aw_version Rhine minor ' LINKER IDENT 
: 459 $890 then begin ! REPORT FAO ERROR 
: 460 0571 signal (Lin$_faofail); 
> 461 b2i¢ return false; ! AND GIVE UP 
Ric, Het a 
: 464 0575 reclng = .reclng+.bufferdesc ClJ-objrecord Cobj$b_rectyp); ' COMPUTE RECORD LENGTH 
; ret B28 ¢ es outputrec (. reclng) ! QUTPUT THE RECORD AND RETURN STATU 
° end; 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 


Be Se Se ee Oe Oe BH Fe Se Se Oe Se Se Se Se Se Fe Se FH Fe Se Se BH SH Se FH Se FH Oe Oe Ge Be Oe Se Be BH Se Se SESH Se Se Se Se Se SH Se SHS Se SH Se ee Fe Se Beas 


0048 -BLKB. 1 
00 00 44 25 37 31 21 44 25 37 31 21 ithe P.AAC: <ASCII \!17%D!17%D\<0><0> ; 
56 20 72 65 68 6€ 69 4c 20 31 31 od 58 41 56 00058 P-AAD: .ASCII \VAX-11 Linker V!AD-!AD\<0><0> : 
00 00 44 41 21 2D 44 41 21 60067 : 
.PSECT S$OWNS,NOEXE,2 
0000000A 00064 DATECNTRL: moos 
00000000" 00068 -ADDRESS P.AAC ; 
00000016 0006C LINKNAREVER: - - 
00000000' 00070 “ADDRESS P.AAD : 
eEXTRN SYSSFAO 
.PSECT S$CODE$,NOWRT,2 
OFFC 00000 HDRECSOUT: 
,WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 0499 
B 0000v EF 9E 92 MOVAB OUTPUTREC, R11 ; 
| A 6 9 E MOVAB SYS$FAO, R1 ; 
9 G E 19 MOVAB LNKSGQ O  START IN. R9 ; 
a FF 1 MOV GBYRECO : 
5 C 3 SUBL ; 
§ D MOVL OgiRecORD, R2 > 0505 
6 i) 4 MOVL 3 “4 
FB «OAR OD 7 MOVL TAGAUXENB RO : 0522 
1 3 p B MOVL RO, FILENAME ; 
A E BEQL Ss] : 


— 


mt “11 Bliss-32_V4.0-74 Page 15 
Jo~pep71 98% 90:38: i KSYMOUT .B32;1 (4) 
LNK _SYRTBLOUT 1388-138 93:25:87 = Eien sresin ee 
v04=000 1B 9(RO) : 
3B AD 9 TS 3 tease 
09 4 BNE 28 : 052 
me AB a : 9598 
a ORB AJ$: MOVE STBAUXFNB, FILENAME 340 
“ an re : O38 
01 46 02000090 8F 0 0004 MOVE SOC ILENARE) (R6) attr 
4 59 tty moves” AQ. APS CP ILENAnED, 6(R6) ; 0558 
06 Ab -~ oy 3 6 sr add 9 CAKSGT, ING], (RODHEADF ELD) i 0541 
es i 9A Gost mOVZBL RQ. LiseT InG{oet, 1 (MODHEADF 1ELD) 
0 , DATEFIELD+ + 0543 
ee ee 6 a9¢0 ROVE #84, DATEFIELD a et 
gi BEG fin & : 
oc Ak OF 00079 PUSHAB DATEFIELD 
c AE SF 007 PUSHAR DATECNTRL : 
04 AB 9F 0007F Shire eh : 
FB 000 CALLS #5, pe 
54 53 A a088 MOVZWL RECLNG, RO = 
29 ¢ 3A $088 mov L CHODHEADF IELD) R1 
oe ee sadn : 
36 36 3 0098 SuBLS ine ?oRD, RO ; 0554 
90 8 ADDW RO, : 0556 
6e e anh O0Kp MOVZuL RECLNG. = (SP) 
30 £9 GOOKB BLBC” RO: 58 .- * 9563 
i Q a0h8 MOVE #1 TCRO). : 0564 
1 OOA #512, BUFFERDESC : 0565 
eet) ae Slds PA EREHE 8 
lh a 9F 0008 PUSHAB LNKSAW_VERSI 
atti SHAB LNKSAW_VE 
000000006 F 00cS pusi ; 
14 AE fF C PUSHAB eye Rave $ : 
eM et op PUSHAB LINKNAMEVER 
0c hi F 000D CALLS” 7 SYSSFAO 
oF 0 EB 00008 : -BUSRL «LENS FAOFAIL = 
Ooooooees Ht Pe ayyes oe! CALLS #1, LIBSSIGNAL : 0572 
000000006 00 } it 9 Bre OS ot ; 057 
6E EB 4%: RO : 
en 0) ee ne Fie 
6 3c OOF MOVZWL MOL eeutice : 
E BF ae bhor CALLS #1, OU : 
68 OL OO0RC RET : 0577 
50 D4 000FD S$: CLRL_—s RO 


13 
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04 OOOFF RET : 

; Routine Size: 256 bytes, Routine Base: $CODES + 0206 


LNK_SYMTBLOUT 
v04= 


; 467 


0578 #1 


voes000 et if: Sep-1964 99:26:87 Hiner SaesiaesymouT -8$2;1 spas 


; 469 79 «#1 fous ine eomrecout = 
: Oh8 es 
3 ais § THIS ROUTINE BUILDS AND OUTPUTS AN END OF MODULE RECORD 
3 474 4 objrecord fobisb. rectvay © = obj$c_e ! SET RECORD TYPE 
; 475 5 objrecord CLeom$b_comcod sqoncédes’ * Cminu (eom$c_abort,.lnk$gb_maxercod)]; ! AND ERROR CODE 
: 476 268 return outputrec (eom$c “eomain); ! AND OUTPUT IT 
3 477 5 end; 
0000 00000 EOMRECOUT: 
WORD ave neehing 3; 0579 
51 00000000" EF 00 0000 MOVL SBIRECORD 1 3; 0584 
61 90 0000 MOVB 3 
50 000000006 00 9A ais MOVZBL LNKSGB_MAXERCOD, RO 3; 0585 
03 50 91 0001 CMPB RO, # 3 
03 1B 00016 BLEQU F 
50 0 BY tH MOVL #3, RO 3 
01 Al 00000000'EF4O0 90 0001B 1$: MOVB EOMCODESCROJ, 1(R1) 3 
02 OD Boose PUSHL @# 3; 0586 
00000000V_ EF 01 FB B88 6 CALLS #1, OUTPUTREC : 
04 00020 RET ; 0587 


; Routine Size: 46 bytes, Routine Base: S$CODE$S + 0306 


Bete Se ee Se Se Ge Ge Se Se Ge SH Se Ge Fe Se Se FH Se Se Se Se Se ae Se Se Seas 


i - — 


LNK_SYMTBLOUT 1b-50 Sep-1984 AX=11 Bliss-32 V4.0-7 P 18 LN 
V0G= 300-1 3b 99:25 3 LINKER. SRCJLNKSYMOUT. 3 2:1 ~~ 2 va 


; 479 1 routine outputpsects = 

; ret iY begin care 

; iB $1 i THIS ROUTINE OUTPUTS THE PSECTS TO THE SYMBOL TABLE 
: 484 38 routine psect_out(node) = 

: tbe gg 3 pegin 

: 487 239 i THIS nour is IS CALLED BY LIBSTRAVERSE_TREE FOR EACH PSECT IN THE 

; 488 59 ! MAPPING LIST 

7. i at 

: 491 060 i THE SYMBOLS IN THE SYMBOL TABLE ARE ALL LINKED ON A (SINGLY THREADED) LIST FROM 

; 49 ret ! THE PROGRAM SECTIONS WITHIN WHICH THE SYMBOLS WERE DEFINED. THEREFORE TO FIND 

; 49 06 § !' ALL SYMBOLS, WE SCAN DOWN THE LINKED LIST OF P=SECTION DESCRIPTORS, THEN DOWN 

: $8e bebz THE LIST OF SYMBOLS STRUNG OFF EACH P-SECTION DESCRIPTOR. 

: 696 0605 3 map 

: 497 8608 node : ref block C,bytel; 

; 498 060 

; 499 0608 bind 

; 500 0609 psectdesc = node net opt ref block C,byte], 

; 20) Beit cludesc = psectdesc (psc3l tludse) : ref block C,byteJ; 

; 208 0612 § Local 

; 504 061 symdesc : ref block C,byte., ! POINTER TO SYMBOL DESCRIPTOR 

3; 302 0614 pscoutflg, ' FLAG IF PSECT WAS OUIPUT TO SYMBOL FILE 
3 208 ool? Savpscnum; ! SAVED PSECT NUMBER 

; 508 O61? if .lnk$gl_ctlmsk Clak$v ashe) ! IF MAKING A SHAREABLE IMAGE 

; 509 0618 and .cludesc Cclu$Sv_shrimg ! AND THIS CLUSTER IS ANOTHER SHAREABLE IMA 
; 219 +34 then return true; ! THEN SKIP THIS CLUSTER 

; 31¢ 0631 if - Ink$gl ctlmsk Cink$v_shr 1 IF SHAREABLE IMAGE 

3 SY 06 § 4a (.psectdesc Cpsc$w_flags] and (gps$m_rel or gps$m_gbl or gps$m_ ovr ? ! AND PSECT IS RELOCATABLE, 
; 514 0625 4 eql (gps$m_rel or gps$m_gbl or gps$m_ovr ! GLOBAL, OVERLAYED 

3; S19 0624 4 then begin 

5 316 0625 4 pscoutflg = true; ! PSECT WAS OUTPUT 

; 517 06 $ & curpsectnum = .curpsectnum + 1; ' INCREMENT we FE} NUMBER 

; 518 06 4 if not psectrecout(.psectdesc) ! OUTPUT THE P-SECTION 

3 238 06 3 2 bo return true; ! RETURNING ON ERROR 

; 1 0 4 else begin 

3 g 1 4 pscoutflg = false; ' FLAG PSECT NOT OUTPUT 

3 § 4 savpscnum = .curpsectnum; ' SAVE THE PSECT NUMBER 

3; 3 3 6 Z 4 ourpecstoe = 0; ! DEFINE THE SYMBOLS IN THE ABSOLUTE PSECT 
; i 6 5 ; if (symdesc = spasestoes Cpsc$l_s syaletd) neq 0 ! IF THERE ARE SYMBOLS 

; 5 i i then do Ne cs n’begin sym$w_flagsJ and .symask) eql .symatch ! THAT QUALIFY FOR OUTPUT 

; 2 9 : 4 if "at Csym$v_redef) ! IF FLAGGED FOR RE-DEFINITION 

; en 

: 2 1 0 mdesc poyeet voluel -symdesc_ Csym$l_newval); ' Ha RE-DEF INE VALUE 

: 3 1 . ink Task nasy picimg] i IF IMAGE IS STILL PIC 

3 § i *syndest sym$v_ -rergt ! AND THIS SYMBOL SHOULD BE 

3 33¢ i i then symdesc Csym$v_rel] = true; ' RELOCATABLE THEN MAKE IT SO 
° end; 
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V04= 1 =3007 138% 9 26:33 LINKER.SRCJLNKSYMOUT.852;1 
H 645 4 
3 646 4 if .lnk$gl_ctlmsk Clnk$v_picimg] ! IF A PIC IMAGE 
3 i o29 4 and “inkSgtc imsk CULnk yohe) ° ' AND A SHAREABLE IMAGE 
3 9 o78 4 and .symdesc (sym$v_rel ! AND SYMBOL IS RELOCATABLE 
3 re rt: ? then symdesc Lsym$l_value] = sbratess CsynSt valued - ! MAKE IT IMAGE RELATIVE 
3 . minv 
3 se i ? else symdesc Csym$v_rel] = false: = ! THEN SYMBOL IS ABSOLUTE 
: $44 653 4 if .symdesc Csym$v_intsym] ! IF INTERNAL SYMBOL 
; 545 654 4 or *symdesc symSv-defl. ! OR DEFINED 
; 546 655 4 then if not symrecout(.symdesc) ! THEN OUTPUT THE SYMBOL 
3 Ses 28 ? then return true; ! GIVING UP ON AN ERROR 
3 en 
3 208 8938 until (symdesc = .symdesc Csym$l_psclst]) eql 0; ! ON FAILURE 
; 551 0660 if not .pscoutflg 
: 226 Boe! then curpsectnum = .savpscnum; ' RESTORE PSECT NUMBER IF NECESSARY 
3; 554 pees return true 
s 3935 0664 2 end; 
OOFC 00000 PSECT_OUT: 
WORD Save R2,R3,R4,R5,R6,R7 
57 00000000G 00 9E 00088 MOVAB LNKSGL_CTLMSK, R? 
56 00000000' EF oF 000 MOV CURPSECTNUM, R6 
50 04 AC OA C 90019 ADDL3 #10, NODE, RO 
5 60 DO 0001 MOVL (R 
51 67 1 Q EF 00018 EXTZ2V #2, #1, LNKSGL_CTLMSK, R1 
F E9 0001D BLBC R1 
0 24 A2 00 00020 MOVL 3eiR ,_ RO 
24 58 a Q EO 00024 BBS w 8(RO), 
g 1 e 0029 BLBC R1 
0 OA A2 3C 0002C MOVZWL 10(R2), RO 
50 FFFFFFE3 af CA 000 BICL2 #-29, RO 
iC 9 D1 000 CMPL = RO, 28 
1 3 003A BNEQ 2$ 
53 01 003C MOVL #1, PSCOUTFLG 
$6 003F INCB = CURPSECTNUM 
DD rt PUSHL R 
00000000V Fr 1 fe CALLS #1, Csecrne cour 
9 ‘ GA BLBS RO 
1 D 1$: BRB 11$ 
5 4 F 2$: CLRL PSCOUTFLG 
54 66 9A 1 MOVZBL CURPSECTNUM, SAVPSCNUM 
6 4 4 CLRB RPSECTNUM 
52 14 «OA 0 6 3% VL ), SYMDESC 
5F A BEQL 
E VAB 1 ayvnngs©). RO 
C MOVZWL (R R 
g MOVZWL SYMASK, RS 
1) Cc R 
CA BICL R 
D1 CMPL Ri YMATCH 
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LNK_SYMTBLOUT 16-Sep-1984 234: AX-11 Bliss-32 V4.0-74 
v04= 1o-ge8= 1382 9 26333 LINKER. SRCJLNKSYMOUT .B52;1 
42 1 7 BNEQ 9$ : 
11 6 0 if 7 BBC #i2, (RO), 5$ 3 063 
& 10 A D6 7 MOVL 1 cSympest) (SYMD $c) + 064 
13 2 A E 7 BBC 8 LNK GL_ETLMSK+2, + 0641 
0 t & § 3 BBC #2, MSYRDESE) 3: 064 
6 BISB2 #8, (RO) : 064 
11 02 =s#A io 5$ BBC #1, LNKSGL_ cTLAsKee 6$ 8 oe8 
0D 67 : E1 D BBC #2, LNKSGL-CTLMSK, 6$ 3 064 
09 38 E } BBC #3, (RO) : 0648 
62 000000006 f 99 SuBL2 LNKSGL MINVA, (SYMDESC) : 650 
6 8A OO09E 6$: BICB2 (RO) : 065 
04 $5 A £0 i $3: BBS 6, (RO), 8$ ; re 
0c 60 1 €1 BAR BBC 1, (RO), 3; 0654 
2 OD AD 8$: PUSHL SYMDESC 3; 0655 
00000000V_ EF 2 Fe OA CALLS #1, SYMRECOUT : 
C § E 0B BLBC 0, 1 $ 
2 04 A2 DO 000B5 98: MOVL § 4(SYMDESC), SYMDESC : 0658 
Al 12 00089 BNEQ 4$ 3 
03 27 3 00BB 10$: BLBS PSCOUTFLG, 11$ 3; 0660 
66 4 90 gpee MOVB SAVPSCNUM, CURPSECTNUM : 0661 
50 01 p00 000C1 118: MOVL #1, RO 3; 0663 
04 000C4 3; 0664 
; Routine Size: 197 bytes, Routine Base: S$CODES + 0334 
: 556 0665 2! 
s S37 0666 MAIN BODY OF OUTPUTPSECTS 
; 558 0667 
3 So 0668 it not - Lnk$gl_ ctlmsk Clnk$v_shr] 
; 560 0669 then symask = Vsymask or gsySm_weak ! IF NOT SHAREABLE, EXCLUDE WEAK SYMBOLS 
; 561 0670 else begin 
3 206 0671 symatch = gsy$m_u ! IF SHAREABLE, SYMBOLS MUST BE UNIVERSAL 
3; 3 067 symask = ssynask — * gsySm_ uni; 
3; 564 067 end; 
3; 565 0674 ! 
3 266 Bete TRAVERSE THE TREE AND OUTPUT THE PSECTS 
3 308 +44 lateanies:’ tree (Lnk$gl_maplst,psect_out); 
; 570 0679 return outputrec (.gsdrecing) ! RETURN, OUTPUTTING ANY PARTIAL RECORD 
s 5371 0680 1 end; iOF OUTPUTPSECTS 


0004 00000 OUTPUTPSECTS: 
- WORD 


Save R2 ; 0588 
fremnee: F 9 02 MOVAB SYMASK, R2 ; 
05 000000006 é BBS HS CNS CTLMSK, 1% : 0668 
11 B1SB2 > 0669 
7 11 00014 BRB : 
04 4 g 16 1$: MOVL oe SYMATCH : 0671 
4 1A BISB2 #4. SYMASK : i 
FFIA CF 9F 0001D 2$: PUSHAB Pséct. _ouT : 067 


UM BYRTBLOUT ir a AI LePLiBgr HZ VasOr74g, Page 2 


eta OF PUSHAB LNKSGL MAPLST : 

000000006 90 Hy CALLS LIBSTRAVERSE TREE : 
E C MOVZWL SSR : 0679 

00000000V EF FB CALLS g? ROutPOTREC ; 
04 RET + 0680 


; Routine Size: 58 bytes, Routine Base: S$CODES + 03F9 


2 13 
voe2800 1eo$ep=19ee 18:00:87 EMTWKER:SReSAKSYROUT 682; 1 le 


s S73 681 1 rou ine stbpscrecout(psectdesc) = : 
Fo te Be PPO : 
; re ? 2 i THIS ROUTINE OUTPUTS A PSECT DEFINITION RECORD TO THE STB FILE. : 
; 578 6 § map $ 
: 579 6 psectdesc : ref blockC. byte); : 
; 580 6 : : 
; 581 6 local 3 
3 266 oa psectdefrec : ref blockC, byte); ; 
; 282 O69 if sever ilotss eql 0 ' IF NO STB FILE ; 
3 38 69 and .psectdesc (psc$v_rel] ! AND PSECT IS RELOCATABLE . 
3 2n6 B68 then return true; ! THEN JUST SKIP IT : 
; 588 069 it .gsdreclng gtru 0 ! FLUSH BUFFER ; 
: 589 O69? on'begin 
; $90 0698 if not outputrec (. gsdrecing) ! WRITE IT OUT : 
>; 591 0699 then return soveng ! AND ZERO THE LENGTH 3 
; a3¢ 0700 gsdreclng = 3 
; 0701 end; 3 
3: 594 070 $ 
; 595 070 if .gsdrecing eql 0 ' iF CES IIING A NEW F 
> 596 0704 then begin ! GSD RECORD, SET : 
3 397 0705 objrecord Cobj$b_ rectyp] = obj$c_gsd; ! RECORD Tipe AND INITIALIZE 3 
; 598 B78 gsdrecing = ! THE LENG F 
3; 599 070 end; 3 
; 600 0708 F 
; 601 0709 psectdefrec = enirecves i. # sedrec ings; ' POINT TO ys Bu PART OF RECORD 3 
; 602 0710 § psectdefrec Cgps$b -969t ye? = gsd$c_p ' SET eg RD TYPE : 
; 603 0711 psectdefrec ([gps$b_a = Ppsectaene Epsc$b. align]; ' COPY ALIGNMEN : 
: 604 orig psectdefrec (gps$w_ atignl = .psectdesc Cpsc$w_flags) ! COPY FLAGS. : 
; 605 071 and not (psc$m_optpsc or psc$m_ usrpsc or ! AND CLEAR UNINTERESTING BITS : 
; one Bote psca_ supres or psc$m_shrimg : 
; 608 0716 psectdefrec fopsst. alloc). = .psectdesc toscst_ base]; ' SET ALLOCATION AS PSECT BASE ; 
3 o a4 psectdefrec Cgps$b_naming] = .psectdesc Cpsc$b_ naming); i COPY LENGTH OF NAME : 
3; 611 $719 gsdrecing = .gsdrecing + ch$move i ceeete nes, Fpsc$b. pentog ! AND THEN THE NAME AND UPDATE : 
3 ol¢ Bro desc [psc$t_name] ' LENGTH OF GSD RECORD 3 
: 61 0721 cette AL Cops$t_name] 3 
; 614 O73¢ 5? .psectdefrec: : 
3 616 4 4& if .imgauxfnbd neg 0 ' IF ALSO WRITING TO IMAGE FILE 3 
; elf g 5 one -psectdefrec gps$v_relj ! AND THIS IS A RELOCATABLE PSECT : 
s en 3 
3; 619 6 stbrecout (. res ! THEN OUTPUT THE RECORD TO THE STB FILE : 
: 620 7 8 gsdrecing : 
3; 621 7 end; : 
3 6 ¢ 730 : 
§ 6s 731 return true : 
; 624 732 1 end; : 


N13 
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v0G= 1o-g8- 1382 90:36:83 LINKER. SRCJLNKSYMOUT.B32; 1 
cphdoemeee stout! Save R2,R3,R4,R5,R6,R7,RB 
o ave o * o oO _ e 
58 00000009" eF 9 2 MOVAB GSDRECLNG, RB 
F Ag D TSTL STBFILEIF 
09 1 C BNE $ 
5 04 AC D MOVL BSECTDESC RO 
69 OA A 0 BBS #3, 10(ROS, 4$ 
5 6 g 1? 1$ MOVZWL GSBRECLNG, RO 
$6 pb pooTe th ant 
00000000v EF 0 FB 1 CALLS i, QUTPUTREC 
C E BLBC =_- RO 
84 CLRW GSRECLNG 
A BNEQ $ 
046 8B 1 ¢ 2s MOVB #1, @OBJRECORD 
: 1 g MOVw =o GSDRECLNG 
68 ¢ 3$ MOVZWL GSDRECLNG, R 
56 57 04 =A 9) 0 ADDL3 OBJRECVEC, R7, PSECTDEFREC 
66 94 B CLRB = (PSEC TDEFREC) 
50 4 aC p0 03D MOVL PSECTDESC, RO 
01 Ab C AO OD 0 41 MOVE. 44(RO), I {PSeCTDEF REC? 
02 Ab OA AO 3¢ 6 BF A 46 BICW3 #15360. 10(RO), 2(PSECTDEFREC) 
04 Ab 18 AO p 004 MOVL  24(RO). 4(PSECTDEFREC) 
08 A6 gp AO 909 OVB  45(RO), B(PSECTDEFREC) 
51 D AO 9A 0005 MOVZBL 45(RO). R1 
09 Ab 2E Ag 51 28 9056 Ovc3. Ri, 4GiRO) 9(PSECTDEFREC) 
50 5 23 C1 0006 ADDL3 R3, R7, RO 
68 50 6 A3 00066 SUBW3 PSECTDEFREC, RO, GSDRECLNG 
FC AB D5 0006A TSTL | IMGAUXFNB 
11 13 00060 BEQL 4$ 
0c 02 Ab 03 fl O06F BBC #3, 2(PSECTDEFREC), 4$ 
7E 68 3c¢ 00074 MOVZWL GSDRECLNG, -(SP) 
00000000V_ EF 01 FB 007 CALLS #1, STBRECOUT 
68 B4 0007 CLAW  GSDRECLNG 
50 01 00 00 4$: MOVL ® 
04 000 RET 
50 D4 00 5$: CLRL = RO 
4 00086 RET 


3; Routine Size: 135 bytes, Routine Base: S$CODE$S + 0433 
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y047000 1 30071382 ° 26:37 LINKER. SRCJLNKSYMOUT .B32;1 . B 

; $ 733 1 routine imgpscrecout(psectdesc) = 

; ? ? f 4 begin cof : 

: ? ; f THIS ROUTINE OUTPUTS A PSECT DEFINITION RECORD TO THE IMAGE FILE 

nxt 5  psectd f block C,bytel ; 
3 psectdesc : re ock C,bytel; ; 
: 83 740 . 
; 634 741 local ‘ 
; ? og psectdefrec : ref block C,byted; ; 
; 637 744 if not opsectdesc Cpsc$v_rel) ! IF PSECT IS ABSOLUTE ; 
; 638 745 then begin : 
; 639 m8 outputrec s<pecreesnys ! OUTPUT THE RECORD, PSECT DEF ALREADY SET U . 
; 640 074 gsdrecing = 0; 

; 641 0748 return true; 

3 ong 0749 end; 

; 64 750 

> 644 751 if .gsdrecing gtru 0 ! FLUSH BUFFER 

: 6465 Peg then begin 

3 646 07 if not outputrec (.gsdrecing) ! WRITE IT OUT 

3; 647 0754 then return false; ! AND ZERO THE LENGTH 

; 648 0755 gsdrecing = 0; 

3; 649 8728 end; 

; 650 07 

; 651 463 if “psdrecing eql 0 ! JF BEGINNING A NEW 

; O26 0759 then begin ' GSD RECORD 

$ @ 0760 objrecord Cobj$b_rectyp] = obj$c_gsd; i RECORD TYPE AND INITIALIZE 

; 654 0761 gsdrecing = 1; ! THE LENGTH 

; 655 $54 end; 

> 656 076 

; 657 0764 psectdefrec = objrecvec C.gsdrecing); ! POINT TO P=SECTION PART OF RECORD 

; 658 0765 psectdefrec (gps b.gsdty J = gsd$c_spsc; ! SET SUBRECORD TYPE 

; 659 3708 psectdefrec [gps$b_al on) = .psectdesc Cosc$b_align); ! COPY ALIGNMENT 

; 660 076 psectdefrec (gps$w_flags] = .psectdesc [psc$w_flags ! COPY FLAGS, 

: 661 0768 and not (psc$m_optpsc or psc$m_usrpsc or ! AND CLEAR UNINTERESTING BITS 

3 $86 ai psc$m_supres or psc$m_shrimg 

; 664 771 psectdefrec fsgps$t_al loc = .psectdesc Cpsc$l Lengehd: ! SET PSECT ALLOCATION 

; 665 re psectdefrec Csgps$l_base] = (if .lnk$gl_ctlmsk LokSy pig ing) ! IF A PIC IMAG 

; 94) 77 then spsectdese res¢Sl base - ! THEN RECORD BASE AS IMAGE RELATIVE 

; 66 774 . ink ote nva 

3 669 Ae else .psectdesc ([psc$i_base] ! OTHERWISE ACTUAL ADDRESS 

; 670 77 : 

; $7) a psectdefrec Csgps$b_naming] = .psectdesc Cpsc$b_naming); ! SET LENGTH OF NAME 

3 £78 780 gsdrecing = .gsdrecing + ch$move (.psectdesc Fesc$b_naning] ! COPY THE P=-SECTION NAME 

; 674 781 + psectdesc ppcSt pane) ! AND UPDATE RECORD LENGTH 

3; 675 7 ¢ psectdefrec ([sgps$t_name) 

: 676 , § = .psectdefrec; 

; 678 785 if .stbfileifi neq 0 ! IF ALSO WRITING STB FILE 

: 679 7 § then begin 

; 680 7 toarecout -goérecing)s ! THEN OUTPUT THE RECORD 

: H 3 gsqrec ing = Q; 


berenin oO 
v04=000 


3; Routine Size: 


790 ; 
791 
792 


end; 


08 


56 


02 A6 


OD A6 
50 
68 


return true 


9 4444 
00000 
OA 4 
69 
50 
69 
6F 
04 88 
68 
57 
57 04 
66 
g A6 33 
A A 3c00 
3 A 1¢ 
98 000000006 0 
0 18  A2 000000006 
50 18 
08 A6 
oc 6A gp 
5 D 
2 OA 
50 
F8 


160 bytes, 
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00000000V_ EF 
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= 
wn 
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wn 
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= ee 7 
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3,R4,R5,R6,R7,RB,RI 
» RY 
oR 

R 


ARBVQzwvaow 


_, RO 


i 
#1, OUTPUTREC 
BRECLNG 


ine), 13(PSECTDEFREC) 
FREC, RO, GSDRECLNG 


L 
6 

», RO 

(Pst TDEFREC) 

od (PSEC TDEFREC) 
R 

T 

ILEIFI 

E 

I 

E 
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a AnNNS 
on F 


ANNO 


sssssssssssssss ooo°oo 
WOCDcMod~N~ 
WW EN Oo 


Ooooo°0[eo 


MVNOnrmoorn 


0787 


791 


0792 


; Routine Size: 30 bytes, Routine Base: S$CODES + O5S5A 
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LNK_SYMTBLOUT 16-Sep-1984 00:34: AX-11 Bliss-32 V4.0-74 B 
voaz 1er8een 188s 93:25i89 | ence SRE STAs VnouT B$251 age $8 
; 687 793 1 routine psectrecout(psectdesc) = 
oes |e 
: 690 138 i THIS ROUTINE OUTPUTS A P-SECTION DEFINITION RECORD. IT ASSUMES THAT GSD 
3; 691 79 ' RECORDS ARE BEING WRITTEN AND BLOCKED UP. IF ANOTHER P-SECTION DEFINITION 
; 69 79 ' RECORD WILL NOT FIT IN THE CURRENT GSD RECORD, THE RECORD IS WRITTEN 
3; 69 79 ' AND ANOTHER BEGUN. 
; 694 800 ! 
; 695 01 map 
; 25 8 psectdesc : ref block(,bytel; ' BLOCK POINTER 
3 69 B04 stbpscrecout(.psectdesc); ! OUTPUT TO STB FILE 
: 700 08 § 2 if .imgauxtnb neq 0 ! IF WRITING TO IMAGE FILE 
; Ay 0808 then imgpscrecout (.psectdesc); ! THEN OUTPUT TO IMAGE FILE 
: 70 0809 2 return t ! AND ALL DONE. 
704 Oe red stage Siete 
0000 00000 PSECTRECOUT: 
«WORD Save nothing 3; 0793 
04 AC OD $008 PUSHL PSECTDESC 3; 0804 
FECF CF 01 F 000 CALLS #1, STBPSCRECOUT é 
00000000' EF D5 OO00A TSTL IMGAUXF NB ; 0806 
08 1 8804 BEQL 1$ 3 
04 AC DD 0001 PUSHL PSECTDESC 3; 0807 
FF46 CF 01 fe 0001 CALLS #1, IMGPSCRECOUT 3 
50 01 OD Ot 1$ MOVL #1, RO ; 08 
04 00010 RET ; 0810 
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; 


AX-11 Bliss-32 V4.0-74 
LINKER. SRCJLNKSYMOUT B52; 1 


<= 


outine symrecout (symdesc) 
n 


S_ ROUTINE BLOCKS SYMBOL DEFIN 


ON RECORDS INTO GSD RECORDS 
OUTPUTS THEM TO THE SYMBOL TABLE. 


symbolstring : ref vector 
! LENGTH OF ARG VALIDATION DATA 


ind symdscnam = .s 9 = snb$c_fxdlen : blockC 


then maskleng 

+ ed masklength 

then begin 
n 


SET THE EXTRA 
LENGTH 
IF THERE IS VALIDATION DATA 


= 0; 
l_valdata] neq 0 


argvaldata = symdesc 


sym$l_valdata) : ref vector(,byteJ; 
valdating = tr argeetdeterose ayes + 2; : 


NAME IT 
GET LENGTH OF VALIDATION INFORMATI 


en 
else valdating = 0 
if (.gsdreclng+.masklength+.symdescCsym$b_namin 


THERE IS NONE 
J+. valdating+ YMBOL WOULD 
sdf$c_name) gtru maxsym 


then begin 


if not outputrec(.gsdrecing) 
then return false; ! EXIT ON ERROR 
gsdreclng = 0; ! RESET RECORD LENGTH 


! SET NEW RECORD AS A 


end; 
if .gsdrecing eql 0 
then begin 


it 


jSb.rectyp] = obj$c_gsd; 


end; 
defrec = objrecvec C.gsdrecing); 
-valdating neq 


then begin 
bin 


! POINT TO VALIDATION DATA 

! POINTER TO TH 

! SET THE ENTRY 
P O THE NAME 

RE DEFINITION 

IMUM ARG COUNT 


argvaldata = symdesc(sym$l_valdata] : ref vector(,bytel], 
formaldata = symdefreclpro$t_name]+ 
symdesc(sym$b_naming] : 


blockt .byted; — FIXED PART OF FORMA 
kJ; MASK 


symdefrec(pro$ 
formaldatal fmi$6_ = ,argvaldata 
pornes eat tal Sd _mexergs 


! AND MAXIMUM 
! LOOP THROUGH THE ARGUMENTS 


rgdesc = 
° formaldatal fml$b_maxargs]+1+((.i-1)*ar URRENT ARG DESCR 
argdescCarg$b_valctl] = .(argvalda 


orgdesc arg$b_bytecnt] = 0; 
end; 


oom 
@ 


en 
else i 
then begi 


masklength neq 0 ' TO SYMBOL NAME 
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Vv04= 1228687138 9 26:39 AINKER  SREILNKSYMOUT. 69251 185 
; rt symdefrecCepm$w_mask]=.symde gCeyatu. gntaskd; ! STRING AND _IF AN 
; 8 symbolstring = byagetrec epm pnaatng $ ! ENTRY POINT DEFINITION 
; 0 symdefreclepm$b_gsdtyp] = obj$¢_gsd_epm ! SET THE GSD TYP 
H 71 nd ' ALSO COPY THE ENTRY 
; 1h) else begin ! POINT MASK 
3 087 syabol string = syadefrectsd?$p naning): ! DO LIKEWISE FOR 
; Bae ones f$b_gsdtyp] = obj$c_gsd_sym; } edie 5 YR@OL 
3 0876 syadetrechadtsb_detyp, = .symdesc(sym$b_datyp]; ! COPY DATA TYPE 
3 bB6 symdefrec(sdf$w_flags] = .symdesclsym$w_flags] and (gsySa_ret or ! AND FLAG 
: 0878 gsy$m_weak or gsy$m_uni or gsy$m_def); 
; +194 if not .symdesc(sym$v_rel) ! IF ABSOLUTE P-SECTION 
; 880 then symdefrec(sd?$b_psindx] = 0 ' SET OWNING P-SECT NUMBER = 0 
; 0881 else pregesrec sdf$b_psindx] = .curpsectnum; ! SET OWNING P-SECT 
3 pore symdefrec(sdf$l_value) = pbyndrectoyanl velus : ! SYMBOL VALUE 
; 088 gsdrecing = .gsdrecing+ch$move(.symdscnam snb$b_namin J+1 ! COPY THE SYMBOL 
3 0884 symdscnamLsnb$b_namlngJ,symbo stringl0])- ! NAME (COUNTED STRING) 
; 0885 -symdefrec+.valdating; ' AND UPDATE LENGTH 
; 0886 return true; ! AND IT IS A 
; 0887 1 end; ! DONE. 
OFFC 00000 SYMRECOUT: 
- WORD Save R2,R3,R4,R5,R6,R7,R8,RI,R1I0,R11 ; 0811 
5B 00000000" EF 9E 0000 MOVAB GSDRECLNG, R11 ; 
54 04 AC 00 0000 MOVL  SYMDESC, R4 ; 0822 
52 OF A& 9A 00000 rt 15(R4), as : 
50 54 25 ge 0011 SUBL Re R4, R 3 
59 FBC 9013 MOVAB -5(RO). RO ; 
OA AG ° 0019 TSTW 10(R4) ; 0823 
83 Baie BGEQ 1$ 3 
53 g D 1E MOVL See MASKLENGTH ; 0824 
8 11 00021 BRB 2 3 
3 04 96 1$: CLRL § MASKLENGTH ; 0825 
18 AG 0 025 28: TSTL oo ; 0826 
oc 0 BEQL $ 3 
7 18 4 OA A MOVZBL @24(R4), R7 ; 0830 
? C4 F MULL2 #2, VALDATLNG ; 
7 ¢ SUBL #2, VALDATLNG : 
BRB 4 ; 08 
Re 3$: ct VALDATLNG 3 4 
3 C 4$: MOVZWL GSDRECLNG, R1 3 
50 1 ci ADDL MASKLENGTH, R1, RO : 
8 § f ADDL R2, R é 
0A A740 9E Ag MOVAB 1 (VALDATLNG) CROJ, RO ; 
00000200 F 50 D 4 CMPL RO, #512 ; 0834 
11 18 4 BLEQU 6$ 3 
1 0D PUSHL Ri ; 0836 
00000000v Ff 1 F CALLS #1, QyTPUTREC 3 
3 0 5 BLBS Ro 3 
00A6 C BRw 15§ ; 
6B B84 F 5$: CLRW GSDRECLNG 3 oe78 
68 83 6 6$: TSTW BzOne CLG : 0 
BNEQ 3 
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LINKER. SRCJLNKSYMOUT. - 231 


; 784 1 routine stbrecout(recing) = 

; £3? 83 begin ’ 

3 ray 3 THIS ROUTINE WRITES TO THE STB FILE IF ONE IS BEING CREATED 

: 789 0 9 i RECLNG NGTH OF RECORD TO WRIT 

; O88 97 LE OF RECORD TO WRITE 

3; 791 95 Local 

3 n 38 rmserror; 

: 794 0898 2 if -recln ! IF NON-ZERO LENGTH RECORD 

; 795 344 ASS IPEe neq 0 ! AND WE ARE WRITING TO THE STB FILE 
: 3 oor 3 ren be in bSw_rsz] ! SET RECORD LENGTH 

3 stbrabCrab$w_rsz) = .rec ! 

; 798 44 4 if not (rmserror = Sput (robestbrab)) ! WRITE THE RECORD 

; 799 903 4 then begin 

: 800 904 4 Bienes (live. writeerr } ' SIGNAL ANY ERRORS 

; 801 905 4 Lk Sgl L_symtil rents j,enang?- 

; 80 0906 4 mserror raca g b$l_stvJ); 

; 80 0907 4 ink Slosynout (. stbauxfn ! CLOSE THE FILE IF ERROR 

3; 804 0908 4 if .imgauxfnb eql ' IF NO IMAGE FILE BEING CREATED 
3 it 44 ? then return false; ! THEN ALL DONE NOW 

: en 

; 807 0911 3 else lnk$gw_symrecs = .lnk$gw_symrecs + 1; ! COUNT GOOD RECORD WRITTEN TO THE FILE 
; 808 pale end; 

; 809 091 

; 810 0914 return true 

; 811 0915 1 end; 


-EXTRN SYSS$PUT 
0004 00000 STBRECOUT: 
WORD 


. Save R2 g 
52 00000000" EF 9E 0000 MOVAB STBFILEIFI, R2 ; 
04 AC D5 0000 TSTL RECLNG + 0898 
49 13 0000C BEQL 2 ; 
62 d5 00 TSTL SBF ILEIFI + 0899 
45 13 0001 BEQL $ ; 
D6 A2 04 Ac BO 0001 VW RECLNG, STBRAB+34 + 0901 
B4 Ad 9F 0001 SHAB STBRAB > 0902 
000000006 00 : F 1A CALLS #1, SYSSPUT : 
2D E 1 LBS  § RMSERROR, 1$ ; 
CO A2 OD 4 PUSHL RAB® 12 : 0906 
50 D 7 PUSH RASERR F 
7E 000000006 00 14 ¢ 9 ADDL UNRSGL _SYMFIL, (SP) > 0905 
1 DD PUSHL # ; 
000000006 8F DD PUSHL #L INS, UR RI TEERR ; 
000000006 00 FB CALLS @ : 
BO A2 DD a0 PUSHL st AUXF ti : 0907 
00000000v EF 01 F CALLS #1, LNKSCLOSYMOUT ; 
04 Ag p A TSTL MGAUXF NB : 0908 
0 4D BNEO : 
00000000" EF B6 00051 1$: INcw _LAKSGu_SYMRECS o3} 
0 6 D 3} 2$: MOVL #1, RO” : 0914 
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; 813 516 1 routine imgrecout(recing) = 
; aE it begin ° . 
$ Hs $13 THIS ROUTINE WRITES TO THE IMAGE FILE 
: 818 03 1 at RECLNG LENGTH OF RECORD 
; 819 9 § ! 
3 2 ? local 
: rmserror; 
; 8 ¢ 925 
; 8 9 § if “Spd tags ! IF NON-ZERO LENGTH 
; $ 1 i f went Sngeuxtnb neq 0 ! AND IMAGE FILE IS OPEN 
: B26 0929 ibe \e imgrabCrab$w_rsz] = .rec ! SET RECORD LENGTH 
; 4 8 9 ? af nok ~(raserror = Sput(rab = fargat _imgrab)) ! WRITE THE RECORD 
3 en be 
; 829 83 § 4 signal (Lins writeerr !' IF ERROR, REPORT AND CLOSE FILE 
; 830 0933 4 Lnk$gl ratte filename] 
; 831 0934 4 -rmserror . on be ®grabCrab$(_ stv]); 
3 S36 0935 4 jokSe loa ynoyes. 3 nga xf 
: 83 0936 4 if stot eq a ' IF NO STB FILE BEING CREATED 
: te aa 44 2 “a hen return false; ! THEN ALL DONE NOW 
; 836 939 else lnk$gw_gstrecs = .lnk$gw_gstrecs + 1; ! COUNT GOOD RECORD WRITTEN 
3; 837 940 end; 
; 838 941 
3; 839 94 return true 
; 840 0943 1 end; 
000C 00000 IMGRECOUT: 
- WORD “tf a ; 0916 
53 00000000' cr 9E 0000 MOVAB incaun Re 8 
52 000000006 60 9€ 0000 .OVAB sLNKSAL_ PUMGRAB+ 34, R2 : 
04 as 1) 001 TSTL RECLNG 3; 0926 
4 1 001 BEQL : 
$3 i) 001 TSTL —_— 3; 0927 
43 1 oot BEQL $ 3 
62 04 As 8 319 MOVW RECLNG, LNKSAL_IMGRAB+34 PF ae 
DE A F 00010 PUSHAB LNK$AL_IMGRAB ; 09 
000000006 00 gf 4} 9 CALLS SYSSPUT 3 
C E LBS  RMSERROR, 1$ ; 
EA A 00 OSA PUSHL at a prenharie ; 0934 
50 OD D ey! Pe aan 3 
7E 000000006 90 1 4] 0 4 arate 7 IMGFIL, -(SP) 3 0933 
000000006 BF 0D +] SHL a wee TERR é 
000000006 00 ; FB F CALLS TBSSIGNA ; 
8 DD 28 PUSHL i, UXF NB 3; 0935 
00000000V_ EF F CALLS 51) ; 
ms p : TSTL sréri FILEIF : 0936 
8 ¢ BNEQ $ 
A 1 BRB ; : 332 
00000000" EF 66 6 1%: INCW LNKSGW_GSTRECS 3; 9939 
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23: nove #1, RO - 0942 
3$: CLAL RO 0943 
RET 


50 01 


; Routine Size: 99 bytes, Routine Base: S$CODE$S + OSDE 


LNK_SYMTBLOUT 
v04= 


3; Routine Size: 


Sep-1984 AX-11 Bliss-32 v4.0 Pp 4 
ifoSeo- 1984 0:54:32 YAH OL tage 82 Wea-74g 200 
944 1 routine outputrec(recing) = 
945 2 begin igs: - 
309 ' THIS ROUTINE HANDLES THE ACTUAL pe cone 0 he TO THE 
94 ' FILE(S) RECEIVING SYMBOL TABLE RECOR R DETECTION 
94 ! OCCURS HERE BUT THE HANDLING IS BONE. ih a FILE CLOSING 
i ‘ ROUTINE. 
9 § if not stbrecout(. reclng) 
2 ? then return false; 
i 5 return imgrecout(.reclng) 
6 end; 
0000 00000 OUTPUTREC: 
«WORD Save nothing : 9966 
04 AC OD 88 g PUSHL N 3; 0952 
FF35 cf gt 4 CALLS #i, ) aan F 
8 0 E9 QOO0A LBC $ : 
04 AC DD 0000D PUSHL RECLNG : 0955 
89 = =AF 01 FB 00010 CALLS #1, IMGRECOUT F 
04 00014 RET 3 
50 D4 00015 1$: CLRL RO : 0956 
04 00017 RET 3 


24 bytes, Routine Base: S$CODE$ + 0741 


LNK_SYMTBLOUT Sep-1984 00:34: AX-11 Bliss-32 V4.0-7 Page 35 
v04= 16- $60 1984 00:36:89 LINKER. SRCJLNKSYMOUT. 8 2;1 . (14) Vv 
: B37 Me 1 gt = routine ink$closymout(auxfnb) : novalue = : 
: 858 9 : 
: 859 960 2 i THIS ROUTINE HANDLES ERRORS WRITING THE SYMBOL TABLE RECORDS : 
: 60 9961 ; AND/OR CLOSES THE DESIRED FILE(S). : 
: 86 O38 i F ‘AUXFNB'' IS ZERO = BOTH FILES (IF BOT SED ; 
; 86 964 i OTHERWISE "‘AUXFNB'’ IS THE ADDRESS OF THE AME BLOCK ; 
; 864 0969 ; OF THE FILE ON WHICH AN ERROR OCCURRED. SED. ; 
: 866 309 i WHEN OUTPUTTING RECORDS TO THE GST OF AN E FILE : 
; 867 968 2 ' 1S NOT ACTUALLY. CLOSED. ¢ XCEPT ON ERRORS § ARE MERELY F 
; 868 969 i MODIFIED (BACK T 12 BYTE RECORD) OPEN SINCE ; 
: 869 9970 THE IMAGE HEADER ONEEDS. TO BE WRITTEN AFT NE. : 
: 871 097¢ gmap —auxtnb : ref blockC.bytel; ; 
: 87 0974 2 local fablock : blockCfab$c_bln, byte], ! FAB FOR CLOSE AND MODIFY OPERATIONS : 
: are bat? closerror; ' ERROR CODE IF CLOSE FAILS : 
: 876 0977 2 Stab ~init<tab=fablock, ' INITIALIZE THE FAB ; 
: 878 0979 : 
: 879 0980 2 if .auxfnb eql 0 ! IF WE ARE CLOSING BOTH FILES : 
> 880 0981 2 or .auxfnb eql .stbauxf i OR THE SYMBOL TABLE FILE ONLY : 
: 881 098 then if (fablock fabSw_ 994] = .stbfileifi) neq 0 i IF IT IS STILL OPEN : 
; 88 098 then begin 3 
3 oez 3441 ? Ld — (closerror = $close(fab=fablock)) ' ATTEMPT TO CLOSE IT ; 
° en ° 
; 885 0986 4 signal (Lins, closeout ! AND OUTPUT AN ERROR IF THAT 3 
> 886 0987 4 LnkSgl Lsyatt (Ltabsq filename] > 
; 887 0988 4 .closerror,.fablockC fab$l_stvi); 
: Ba9 0990 3 stbtiteiti = 0; ! AND FORGET THE FILE IN ANY CASE ; 
3 s30 339) —— i "0 then return: ! RETURN IF THAT WAS A : 
: 89 099 if legauntnd neq 0 ' IF SYMBOLS ARE ALSO GOING TO IMAGE : 
; 89 0994 3 then begin i THEN SET UP TO Y TH : 
> 894 0995 fablock(fab$w_ifi] = .lnk$gqw_imgifi; i THE ATTRIBUTES OF THIS FILE : 
; 895 996 fablock{fab$b_rfm] = fa x; ' BACK TO FIXED LENGTH 3 
3; 896 997 fablock(fab$w_mrs) = : ' 512 BYTE RECORDS IN THE 3 
; 897 0998 fablock{fab$v_esc) = true: ' —, on ae A 3 
; 898 0999 fablock(fab$l"ctx] = =$ setrfm; ' $O THAT IT WILL HAVE 3 
: 345 1900 ? renee loseFror s $modi fy fab = * fablock)) ' THE ATTRIBUTES OF AN IMAGE : 
: 901 1008 4 signal (Ling. closeout 1 ! ISSUE MESSAGE IF MODIFY FAILED : 
: 90¢ 1003 4 ink tilLfdb$q_ filename) 3 
: 90 1004 4 rhs bees Se 4 RC tabst _stvd); ; 
i. af Ae 3 
: 906 1 return; : ; 
: 907 1908 nash? 7 : 
; 908 1009 : 


~-EXTRN SYSSCLOSE 
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LNK_SYMTBLOUT 16-Sep-1984 00:34: AX-11 Bliss-32 V4.0-74 
v04= 1 300-1384 99:25:87 LINKER SROTLNKSYMOUT B92; 1 


O1FC 0 .ENTRY LNKSCLOSYMOUT, Save R2,R3,R4,R5,R6,R7,R8 

3 99900006 90 3 MOVAB LIBSSIGNAL : 

0 G 8F MOVL  #LINS$ CLOSEOUT, R7 : 

fff 0Oe ORE BE ObOtP et me at a 

0050 = &F 00 6E 06 € 0001 MOVC "0 (SPS, #0, #80, SRMS_PTR F 
6E 5003 F B60 8s MOVW of 0483 $RMS PTR : 

04 AE 10000000 &8F 0 MOVL #268435456, SRMS_PTR+4 : 

16 AE : MOVE #2, $RMS_PTR+ 2 : 

1FO OA MOVB #2. $RMS~PTR+ : 

5 04 AC D 8 MOVL § AUXFNB, R2 ; 

: 1 99 C BEQL =:'1$ ; 

BO Ab Dd} 0 CMPL 2, STBAUXFNB : 

4 if} 04 BNEQ 3$ F 

50 DO 00044 1$ MOVL § STBFILEIFI, RO : 

02. AE BO 00047 MOVW RO, FABLOCK+2 ; 

D5 00048 TSTL RO : 

29 13 00040 BEQL © 3$ : 

E DD 0004F PUSHL SP ; 

000000006 99 gi FB 00051 CALLS #1, SYSSCLOSE : 
9 D0 00058 MOVL RO, CLOSERROR : 

14 53 €8 00058 BLBS § CLOSERROR, 2$ : 

oc AF DD 0005E PUSHL FABLOCK+12 F 

53 DD 00061 PUSH CLOSERROR : 

7E 000000006 00 14 C1 00063 ADDL3 #20, LNKSGL_SYMFIL, -(SP) : 
01 OD 00068 PUSHL #1 ; 

57 DD 0006D PUSHL 7 : 

68 0S FB O006F CALLS #5, LIBSSIGNAL : 

§ D4 00072 2$: CLRL  STBFILEIFI ; 

D5 00074 TSTL Re : 

45 12 00076 BNEG = : 

04 Ad D5 00078 3$ TSTL IMGAUXFNB ; 

40 13 00078 BEQL 5 : 

02 AE 000000006 00 80 007D MOVW LNK$GW IMGIF | FABLOCK+2 ; 

1F AE 1 0 00085 MOVB 1, FABLOCK+31 F 

36 OA 0200 8F 80 9089 movw #512, FABLOCK+54 : 

07 «AE 8 88 0008F BISB2 #8, FABLOCK+7 ; 

18 AE 1 00 093 MOVL #1, FABLOCK+24 : 

E DD 0009 PUSHL : 

000000006 09 gi FB 00099 CALLS #1, SYSSMODIFY : 
5 9 D 0 MOVL RO, CLOSERROR : 

14 53 € A BLBS  CLOSERROR, 4$ ; 

0c Af dD nb PUSHL FABLOCK+12 ; 

53 DD 000A PUSHL OSERROR : 

7E 000000006 00 14 C1 ADDLS #20, LNKSGL_IMGFIL, -(SP) ; 
g1 DD 0008 PUSHL @ : 

7 DD 0008 PUSHL : 

7. 0S FB 9087 CALLS #5, LIBSSIGNAL : 

04 Ad D4 OOOBA 4$: CLRL IMGAUXFNB ; 

4 000BD 5$: RET F 


; Routine Size: 190 bytes, Routine Base: SCODE$ + 0759 


; 909 


1010 0 end eludom 


! END OF MODULE 
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-EXTRN LIBSSIGNAL 
PSECT SUMMARY 


Name Bytes Attributes 
$SGLOBAL$ 4 NOVEC, WRT, ROD MOeIE Moen LCL, REL, CON,NOPIC,ALIGN(2) 
SOWNS 118 NOVEC, WRT, RD ,NOEX E.N NOSH LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 112 NOVEC.NOWRT, RD .NOEXE, NOSHR: » LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 2071 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
cesceses G7ERG(E Socececs Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBIL Lie. 18619 145 0 1000 0:01.9 
“$255$DUA28: [LINKER OB ATaaS. L32;1 538 47 3 28 0:00.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:LNKSYMOUT/OBJ=O0BJ$:LNKSYMOUT MSRC$:LNKSYMOUT/UPDATE=(ENHS$:LNKSYMOUT) 
Size 2071 code_+ 232 data bytes 
Run “Time 39 7 


Elapsed. Tine: 3 9-5 
Lines/CPU Min: 1527 
Levenes/CPU-Rin: 22610 
ponery Used: 220 pages 
Compilation Complete 


Page 37 
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